home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / hypercrd / hc2_x / untcnvrs.sit / Unit Conversion / card_5859.txt < prev    next >
Text File  |  1990-11-02  |  10KB  |  421 lines
  1. -- card: 5859 from stack: in
  2. -- bmap block id: 7712
  3. -- flags: 0000
  4. -- background id: 3044
  5. -- name: Volume
  6. ----- HyperTalk script -----
  7. on closeCard
  8.   put empty into background field "toconvert"
  9.   put empty into background field "answer"
  10. end closeCard
  11.  
  12.  
  13.  
  14. -- part 14 (button)
  15. -- low flags: 00
  16. -- high flags: 2000
  17. -- rect: left=75 top=288 right=304 bottom=134
  18. -- title width / last selected line: 0
  19. -- icon id / first selected line: 0 / 0
  20. -- text alignment: 1
  21. -- font id: 0
  22. -- text size: 12
  23. -- style flags: 0
  24. -- line height: 16
  25. -- part name: Distance
  26. ----- HyperTalk script -----
  27. on mouseUp
  28.   visual effect zoom open
  29.   go to card Distance
  30. end mouseUp
  31.  
  32.  
  33.  
  34. -- part 15 (button)
  35. -- low flags: 00
  36. -- high flags: 2000
  37. -- rect: left=75 top=306 right=323 bottom=134
  38. -- title width / last selected line: 0
  39. -- icon id / first selected line: 0 / 0
  40. -- text alignment: 1
  41. -- font id: 0
  42. -- text size: 12
  43. -- style flags: 0
  44. -- line height: 16
  45. -- part name: Temperature
  46. ----- HyperTalk script -----
  47. on mouseUp
  48.   visual effect zoom open
  49.   go to card weight
  50. end mouseUp
  51.  
  52.  
  53.  
  54. -- part 16 (button)
  55. -- low flags: 00
  56. -- high flags: 2000
  57. -- rect: left=135 top=288 right=304 bottom=194
  58. -- title width / last selected line: 0
  59. -- icon id / first selected line: 0 / 0
  60. -- text alignment: 1
  61. -- font id: 0
  62. -- text size: 12
  63. -- style flags: 0
  64. -- line height: 16
  65. -- part name: Area
  66. ----- HyperTalk script -----
  67. on mouseUp
  68.   visual effect zoom open
  69.   go to card Area
  70. end mouseUp
  71.  
  72.  
  73.  
  74. -- part 17 (button)
  75. -- low flags: 00
  76. -- high flags: 2000
  77. -- rect: left=135 top=306 right=323 bottom=194
  78. -- title width / last selected line: 0
  79. -- icon id / first selected line: 0 / 0
  80. -- text alignment: 1
  81. -- font id: 0
  82. -- text size: 12
  83. -- style flags: 0
  84. -- line height: 16
  85. -- part name: Temperature
  86. ----- HyperTalk script -----
  87. on mouseUp
  88.   visual effect zoom open
  89.   go to card temperature
  90. end mouseUp
  91.  
  92.  
  93.  
  94. -- part 18 (button)
  95. -- low flags: 00
  96. -- high flags: A003
  97. -- rect: left=282 top=55 right=82 bottom=474
  98. -- title width / last selected line: 0
  99. -- icon id / first selected line: 0 / 0
  100. -- text alignment: 1
  101. -- font id: 0
  102. -- text size: 12
  103. -- style flags: 0
  104. -- line height: 16
  105. -- part name: Cm  to Inches  (Cubed)
  106. ----- HyperTalk script -----
  107. on mouseUp
  108.   set numberformat to 0.000
  109.   put empty into background field "answer"
  110.   get first word of background field "toconvert"
  111.   put it into temp
  112.   if temp is "-" then
  113.     get second word of background field "toconvert"
  114.     divide it by -1
  115.     put it into temp
  116.   end if
  117.   put empty into background field "toconvert"
  118.   if temp is empty then
  119.     put temp && "0 Cu. Centimeters" into background field "toconvert"
  120.   else
  121.     put temp && " Cu. Centimeter" into background field "toconvert"
  122.   end if
  123.   multiply temp by 0.061
  124.   put temp && " Cu. Inches" into background field "answer"
  125.   put empty into temp
  126. end mouseUp
  127.  
  128.  
  129.  
  130. -- part 19 (button)
  131. -- low flags: 00
  132. -- high flags: A003
  133. -- rect: left=282 top=87 right=114 bottom=474
  134. -- title width / last selected line: 0
  135. -- icon id / first selected line: 0 / 0
  136. -- text alignment: 1
  137. -- font id: 0
  138. -- text size: 12
  139. -- style flags: 0
  140. -- line height: 16
  141. -- part name: Inches  to  Cm   (Cubed)
  142. ----- HyperTalk script -----
  143. on mouseUp
  144.   set numberformat to 0.000
  145.   put empty into background field "answer"
  146.   get first word of background field "toconvert"
  147.   put it into temp
  148.   if temp is "-" then
  149.     get second word of background field "toconvert"
  150.     divide it by -1
  151.     put it into temp
  152.   end if
  153.   put empty into background field "toconvert"
  154.   if temp is empty then
  155.     put temp && "0 Cu. Inches" into background field "toconvert"
  156.   else
  157.     put temp && " Cu. Inches" into background field "toconvert"
  158.   end if
  159.   divide temp by 0.061
  160.   put temp && " Cu. Centimeters" into background field "answer"
  161.   put empty into temp
  162. end mouseUp
  163.  
  164.  
  165.  
  166. -- part 20 (button)
  167. -- low flags: 00
  168. -- high flags: A003
  169. -- rect: left=282 top=122 right=149 bottom=474
  170. -- title width / last selected line: 0
  171. -- icon id / first selected line: 0 / 0
  172. -- text alignment: 1
  173. -- font id: 0
  174. -- text size: 12
  175. -- style flags: 0
  176. -- line height: 16
  177. -- part name: Meters  to Feet  (Cubed)
  178. ----- HyperTalk script -----
  179. on mouseUp
  180.   set numberformat to 0.000
  181.   put empty into background field "answer"
  182.   get first word of background field "toconvert"
  183.   put it into temp
  184.   if temp is "-" then
  185.     get second word of background field "toconvert"
  186.     divide it by -1
  187.     put it into temp
  188.   end if
  189.   put empty into background field "toconvert"
  190.   if temp is empty then
  191.     put temp && "0 Cu. Meters" into background field "toconvert"
  192.   else
  193.     put temp && " Cu. Meters" into background field "toconvert"
  194.   end if
  195.   multiply temp by 35.314
  196.   put temp && " Cu. Feet" into background field "answer"
  197.   put empty into temp
  198. end mouseUp
  199.  
  200.  
  201.  
  202. -- part 21 (button)
  203. -- low flags: 00
  204. -- high flags: A003
  205. -- rect: left=282 top=154 right=181 bottom=474
  206. -- title width / last selected line: 0
  207. -- icon id / first selected line: 0 / 0
  208. -- text alignment: 1
  209. -- font id: 0
  210. -- text size: 12
  211. -- style flags: 0
  212. -- line height: 16
  213. -- part name: Feet  to Meters  (Cubed)
  214. ----- HyperTalk script -----
  215. on mouseUp
  216.   set numberformat to 0.000
  217.   put empty into background field "answer"
  218.   get first word of background field "toconvert"
  219.   put it into temp
  220.   if temp is "-" then
  221.     get second word of background field "toconvert"
  222.     divide it by -1
  223.     put it into temp
  224.   end if
  225.   put empty into background field "toconvert"
  226.   if temp is empty then
  227.     put temp && "0 Cu. Feet" into background field "toconvert"
  228.   else
  229.     put temp && " Cu. Feet" into background field "toconvert"
  230.   end if
  231.   divide temp by 35.314
  232.   put temp && " Cu. Meters" into background field "answer"
  233.   put empty into temp
  234. end mouseUp
  235.  
  236.  
  237.  
  238. -- part 22 (button)
  239. -- low flags: 00
  240. -- high flags: A003
  241. -- rect: left=282 top=188 right=215 bottom=474
  242. -- title width / last selected line: 0
  243. -- icon id / first selected line: 0 / 0
  244. -- text alignment: 1
  245. -- font id: 0
  246. -- text size: 12
  247. -- style flags: 0
  248. -- line height: 16
  249. -- part name: Meters  to Yards  (Cubed)
  250. ----- HyperTalk script -----
  251. on mouseUp
  252.   set numberformat to 0.000
  253.   put empty into background field "answer"
  254.   get first word of background field "toconvert"
  255.   put it into temp
  256.   if temp is "-" then
  257.     get second word of background field "toconvert"
  258.     divide it by -1
  259.     put it into temp
  260.   end if
  261.   put empty into background field "toconvert"
  262.   if temp is empty then
  263.     put temp && "0 Cu. Meters" into background field "toconvert"
  264.   else
  265.     put temp && " Cu. Meters" into background field "toconvert"
  266.   end if
  267.   multiply temp by 1.308
  268.   put temp && " Cu. Yards" into background field "answer"
  269.   put empty into temp
  270. end mouseUp
  271.  
  272.  
  273.  
  274. -- part 23 (button)
  275. -- low flags: 00
  276. -- high flags: A003
  277. -- rect: left=282 top=222 right=249 bottom=474
  278. -- title width / last selected line: 0
  279. -- icon id / first selected line: 0 / 0
  280. -- text alignment: 1
  281. -- font id: 0
  282. -- text size: 12
  283. -- style flags: 0
  284. -- line height: 16
  285. -- part name: Yards  to Meters  (Cubed)
  286. ----- HyperTalk script -----
  287. on mouseUp
  288.   set numberformat to 0.000
  289.   put empty into background field "answer"
  290.   get first word of background field "toconvert"
  291.   put it into temp
  292.   if temp is "-" then
  293.     get second word of background field "toconvert"
  294.     divide it by -1
  295.     put it into temp
  296.   end if
  297.   put empty into background field "toconvert"
  298.   if temp is empty then
  299.     put temp && "0 Cu. Yards" into background field "toconvert"
  300.   else
  301.     put temp && " Cu. Yards" into background field "toconvert"
  302.   end if
  303.   divide temp by 1.308
  304.   put temp && " Cu. Meters" into background field "answer"
  305.   put empty into temp
  306. end mouseUp
  307.  
  308.  
  309.  
  310. -- part 24 (button)
  311. -- low flags: 00
  312. -- high flags: A003
  313. -- rect: left=283 top=258 right=285 bottom=474
  314. -- title width / last selected line: 0
  315. -- icon id / first selected line: 0 / 0
  316. -- text alignment: 1
  317. -- font id: 0
  318. -- text size: 12
  319. -- style flags: 0
  320. -- line height: 16
  321. -- part name: Additional Notes
  322. ----- HyperTalk script -----
  323. on mouseUp
  324.   visual effect zoom open
  325.   go to card addinfo
  326. end mouseUp
  327.  
  328.  
  329.  
  330. -- part 25 (button)
  331. -- low flags: 00
  332. -- high flags: A003
  333. -- rect: left=283 top=290 right=317 bottom=474
  334. -- title width / last selected line: 0
  335. -- icon id / first selected line: 0 / 0
  336. -- text alignment: 1
  337. -- font id: 0
  338. -- text size: 12
  339. -- style flags: 0
  340. -- line height: 16
  341. -- part name: More Conversions
  342. ----- HyperTalk script -----
  343. on mouseUp
  344.   get background field "toconvert"
  345.   visual effect wipe right slowly
  346.   go to card "Volume2"
  347.   put it into background field "toconvert"
  348. end mouseUp
  349.  
  350.  
  351.  
  352. -- part 27 (button)
  353. -- low flags: 80
  354. -- high flags: A003
  355. -- rect: left=283 top=258 right=285 bottom=474
  356. -- title width / last selected line: 0
  357. -- icon id / first selected line: 0 / 0
  358. -- text alignment: 1
  359. -- font id: 0
  360. -- text size: 12
  361. -- style flags: 0
  362. -- line height: 16
  363. -- part name: Additional Notes
  364. ----- HyperTalk script -----
  365. on mouseUp
  366.   lock screen
  367.   hide me
  368.   show card field "VolumeInfo"
  369.   show card button "Done"
  370. end mouseUp
  371.  
  372.  
  373.  
  374. -- part 29 (button)
  375. -- low flags: 80
  376. -- high flags: A003
  377. -- rect: left=283 top=258 right=285 bottom=474
  378. -- title width / last selected line: 0
  379. -- icon id / first selected line: 0 / 0
  380. -- text alignment: 1
  381. -- font id: 0
  382. -- text size: 12
  383. -- style flags: 0
  384. -- line height: 16
  385. -- part name: Additional Notes
  386. ----- HyperTalk script -----
  387. on mouseUp
  388.   lock screen
  389.   hide me
  390.   show card field "VolumeInfo"
  391.   show card button "Done"
  392. end mouseUp
  393.  
  394.  
  395.  
  396. -- part 30 (button)
  397. -- low flags: 80
  398. -- high flags: A003
  399. -- rect: left=283 top=257 right=284 bottom=474
  400. -- title width / last selected line: 0
  401. -- icon id / first selected line: 0 / 0
  402. -- text alignment: 1
  403. -- font id: 0
  404. -- text size: 12
  405. -- style flags: 0
  406. -- line height: 16
  407. -- part name: Additional Notes
  408. ----- HyperTalk script -----
  409. on mouseUp
  410.   lock screen
  411.   hide me
  412.   show card field "VolumeInfo"
  413.   show card button "Done"
  414. end mouseUp
  415.  
  416.  
  417.  
  418. -- part contents for background part 7
  419. ----- text -----
  420. Volume
  421. Conversions